<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>176</cardCount>
<cardID>10834</cardID>
<listID>2049</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>__________________________________________________________________—— TABLE OF CONTENTS____________________________________________________________________________________________________________________________________—— GLOSSARY TOOLShandleFieldClickgoGlossaryEntryshowGlossWord__________________________________________________________________—— GLOSSARY CREATION TOOLSmakeGlossaryimportGlossaryexitStackgoNextgoPrev__________________________________________________________________—— UTILITIESlineNo__________________________________________________________________—— PROGRAMMING TOOLS (can be deleted before distribution)lockAllFieldsunlockAllFields--————————————————————————————————————————————————————————————————————--————————————————————————————————————————————————————————————————————openStackarrowKeyreturnKeyenterKeydoMenu______________________________________________________________________________________________________________________________________________________________________________________________________—— GLOSSARY TOOLSon handleFieldClicklock screenset cursor to noneset locktext of target to falseclick at the clickLocclick at the clickLocput the selection into myWordput the selectedChunk into myChunkset lockText of target to trueput word 4 of myChunk into lastCharunlock screenif char (lastChar + 1) of target is "*" then showGlossWord myWordend handleFieldClickon goGlossaryEntrylock screenpush cardput line lineNo() of target into findWhatfind findWhat in fld "subTitle"click at 1,342unlock screen with visual dissolveend goGlossaryEntryon showGlossWord glossWordlock screenfind whole glossWord in fld "Subtitle"click at 1,300unlock screen with visual dissolveend showGlossWord__________________________________________________________________—— GLOSSARY CREATION TOOLSon makeGlossaryput empty into krepeat with i = 105 to 272go cd iput the short id of this cd into startIDput fld "Subtitle" into whatToFindfind whole whatToFind -- find first occurrence on same card-- wait 75repeatfind whole whatToFind-- wait 15if the number of this cd < 97 thenput whatToFind & "," & id of this cd & "," & short ¬name of this cd & return after kend ifif the short id of this cd is startID then exit repeatend repeat-- put the short name of this cdend repeatgo lastput k into cd fld "GlossaryInfo"end makeGlossaryon importGlossaryput "Zowie:Glossary" into fNameopen file fNamerepeat -- with i = 1 to 5read from file fName until returnif it is empty then exit repeatput it into kput char 1 to offset(":",k)-1 of k into myWordput char offset(":",k)+1 to 10000 of k into myDef-- delete last char of myDefput word 1 to 1000 of myDef into myDefdoMenu "New Card"put myWord into fld "subtitle"put myDef into fld "cardtext"put "Glossary" into fld 1end repeatclose file fNameend importGlossaryon goNextlock screengo nextunlock screen with visual wipe leftend goNexton goPrevlock screengo Prevunlock screen with visual wipe rightend goPrev__________________________________________________________________—— UTILITIESfunction lineNoif the style of the target is "scrolling" thenreturn ((item 2 of the clickloc - item 2 of the rect of the target ¬+ the scroll of the target) DIV textheight of
